COMMENT ⊗   VALID 00008 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00005 00003	CLAR   < SAMSON BOX VERSION    <13
C00011 00004	PRECEDE   				<13X14
C00013 00005	PRECEDE   <15X
C00017 00006	PRECEDE   <13X12
C00019 00007	PRECEDE  <12X18
C00022 00008	PRECEDE  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
C00023 ENDMK
C⊗;
PRECEDE;
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT   TOOT CLAR BRIT BUZZ;
COMMON REVRB;
*
REVRB 0 1;
P2 12;END;
CLAR ;  < SAMSON BOX VERSION
P2 RH/13X13/4;
P3 C4;
P4 .6 ; P5 F2;
 P6 F4;
P13 F4;
P12 .1 ALL;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/FINE;
P19 SUBN 13;
END;
BUZZ 0 0 13;
P2 RH/12X12/4;
P3 NO/C2/CS/D/DS/E/F/FS/G/GS/A/AS/B/C3;
P4 1.1 ; P5 F3;
 P6 F6;
P13 F6;
END;
PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
FUNC FUN.FUN[SCR,LCS];
COMMON TOOT TOP BUZZ;
*
TOOT 0 0 25;
P2 RH/24*24/4;
P3 C4;
P4 .5 ; P5 F2; P13 F5;
  P11 MOV/4 0 360;
  P11 NU/0//// //// //// 45//// //// ///;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/
20/21/22/23/24/25;
P19 MICRO 24;
END;
BUZZ 0 0 13;
P2 RH/12X12/4;
P3 NO/C2/CS/D/DS/E/F/FS/G/GS/A/AS/B/C3;
P4 .6  ; P5 F3; P13 F6;
END;
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
CLAR ;  < SAMSON BOX VERSION    <13
P2 RH/13X13/4;
P3 C4;
P4 2000; P5 F2; 
P7 F4;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/FINE;
P19 MICRO 13;
END;
PRECEDE;   				<13X14
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT   TOOT CLAR BRIT BUZZ;
COMMON REVRB;
*
REVRB 0 1; P2 7;END;
TOOT ;  < SAMSON BOX VERSION
P2 RH/14X14/4;
P3 C2;
P4 1  ; P5 F2; 
   P6 F4;
P13 F4; P12 .1;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/14/FINE;
P19 MICRO 14;
END;
CLAR ;  < SAMSON BOX VERSION
P2 RH/13X13/4;
P3 C4;
P4 .7 ; P5 F2; 
   P6 F4;
P13 F4; P12 .1;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/FINE;
P19 MICRO 13;
END;
PRECEDE;   <15X
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT   TOOT CLAR BRIT BUZZ;
PLAY ;
*
CLAR ;  < SAMSON BOX VERSION
P2 RH/15X15/4;
P3 C4;
P4 .5 ; P5 F2; 
   P6 F4;
P13 FUN/4/5/6;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/FINE;
P19 MICRO 15;
END;
BUZZ 0 12;
P2 .9 .06 .1 .1 .5,.5;
P3 1 C2 C8;
P4 .5;
P13  .333 "F4" .33 "F5" .34 "F6";
P5  .5 "F2"  .5 "F3";
DF 4;
END;
PRECEDE;   <13X12
FUNC FUN; < F1, F2, F3, F4, F5, F6
FUNC PPP[SCR,LCS]; < F1, F2, F3, F4, F5, F6
COMMON TOOT   TOOT CLAR BRIT BUZZ;
COMMON REVRB;
*
REVRB 0 1;P2 7;END;
CLAR ;  < SAMSON BOX VERSION
P2 RH/18X18/4;
P3 C4;
P4 .7 ; P5 F2; 
   P6 F4;
P12 .1 ALL;
P13 FU/1/4/5/6;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/
14/15/16/17/18/FINE;
P19 MICRO 18  ;
DF P22;
P22 ALL .2 2,4  .8 1,1;
END;
BUZZ 0 0 13;
P2 RH/12X12/4;
P3 NO/C2/CS/D/DS/E/F/FS/G/GS/A/AS/B/C3;
P4 1   ; P5 F3;
 P6 F6;
P13 F4;
DF P22;
END;
PRECEDE;  <12X18
FUNC FUN; < F1, F2, F3, F4, F5, F6
FUNC PPP[SCR,LCS]; < F1, F2, F3, F4, F5, F6
COMMON TOOT   TOOT CLAR BRIT BUZZ;
COMMON REVRB;
*
REVRB 0 1;P2 23;END;
CLAR ;  < SAMSON BOX VERSION
P2 RH/18X18/4;
P3 C4;
P4 .9 ; P5 F2; 
   P6 F4;
P12 .1 ALL;
P13 FU/4/5;
P18 NU/0/1/2/3/4/5/6/7/8/9/10/11/12/13/
14/15/16/17/18/17/16/15/14/13/12/11/10/9/8/7/6/5/4/3/2/1/0/FINE;
P19 MICRO 18  ;
DF P22;
P22 ALL .2 2,4  .8 1,1;
END;
BUZZ 0 0 13;
P2 RH/12X12/4;
P3 NO/C2/CS/D/DS/E/F/FS/G/GS/A/AS/B/C3;
P4 1   ; P5 F2;
 P6 F6;
P13 F4;
DF P22;
END;
BRIT 0 20;
DUPL 3; P5 F2;
P4 MOVE /6 .01 1.2;
P2 1 .03 .15;
P3 MOV/3 C1 C7 C4 C4/3 C4 C4 C1 C8;
P13 .25 "F1" .25 "F4" .25 "F5" .25 "F5";
DF P22;
P22 MOVE/18 .8 5 5 10;
P12 MOVE/18 0 .1;
END;
PRECEDE;  < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
FUNC FUN.FUN[SCR,LCS];   <9
INST TOOT TOP BOTM;
*
  TYPICAL INPUT FOR MICROTONE SUBROUTINE.
TOOT  ; P2 .3; P3 A3;  
P4 .7; 
P5 F2;  P6 F4;
P18 NUM/0/1/2/3/4/5/6/7/8/9/FINE;
P19 9 SUBR;END;  OCTAVE IS DIVIDED INTO 9 PARTS.
    < ASSUMES P18 AND P19 ARE NOT USED BY YOUR INSTRUMENT.